home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tuneit25 / data.z / Form_About.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-16  |  8.9 KB  |  263 lines

  1. VERSION 5.00
  2. Begin VB.Form Form_About 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About Fast Down ..."
  5.    ClientHeight    =   5790
  6.    ClientLeft      =   1230
  7.    ClientTop       =   585
  8.    ClientWidth     =   6360
  9.    Icon            =   "Form_About.frx":0000
  10.    KeyPreview      =   -1  'True
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   5790
  16.    ScaleWidth      =   6360
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   20000
  20.       Left            =   120
  21.       Top             =   5160
  22.    End
  23.    Begin VB.Frame Frame1 
  24.       Height          =   132
  25.       Left            =   1272
  26.       TabIndex        =   7
  27.       Top             =   2424
  28.       Width           =   4968
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "Ok"
  33.       Default         =   -1  'True
  34.       Height          =   372
  35.       Left            =   2880
  36.       TabIndex        =   2
  37.       Top             =   5280
  38.       Width           =   1692
  39.    End
  40.    Begin VB.Label Label_StartupMode 
  41.       Alignment       =   2  'Center
  42.       Caption         =   "Startup mode"
  43.       Height          =   324
  44.       Left            =   1272
  45.       TabIndex        =   11
  46.       Top             =   3156
  47.       Width           =   4956
  48.    End
  49.    Begin VB.Label Label_WindowStartup 
  50.       Alignment       =   2  'Center
  51.       Caption         =   "Windows startup"
  52.       Height          =   360
  53.       Left            =   1320
  54.       TabIndex        =   10
  55.       Top             =   2784
  56.       Width           =   4896
  57.    End
  58.    Begin VB.Label Label_Registration 
  59.       Alignment       =   2  'Center
  60.       Caption         =   "Registration status"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   178
  65.          Weight          =   400
  66.          Underline       =   -1  'True
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H000040C0&
  71.       Height          =   336
  72.       Left            =   1284
  73.       MouseIcon       =   "Form_About.frx":0442
  74.       MousePointer    =   99  'Custom
  75.       TabIndex        =   9
  76.       Top             =   3816
  77.       Width           =   4980
  78.    End
  79.    Begin VB.Label Label_Email 
  80.       Alignment       =   2  'Center
  81.       Caption         =   "Email  :  majids@geocities.com"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   8.25
  85.          Charset         =   178
  86.          Weight          =   400
  87.          Underline       =   -1  'True
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       ForeColor       =   &H00008000&
  92.       Height          =   348
  93.       Left            =   1284
  94.       MouseIcon       =   "Form_About.frx":074C
  95.       MousePointer    =   99  'Custom
  96.       TabIndex        =   8
  97.       Top             =   4308
  98.       Width           =   4980
  99.    End
  100.    Begin VB.Label Label_HomePage 
  101.       Alignment       =   2  'Center
  102.       Caption         =   "Web :  http://www.angelfire.com/me/majids"
  103.       BeginProperty Font 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   8.25
  106.          Charset         =   178
  107.          Weight          =   400
  108.          Underline       =   -1  'True
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       ForeColor       =   &H00800000&
  113.       Height          =   360
  114.       Left            =   1284
  115.       MouseIcon       =   "Form_About.frx":0A56
  116.       MousePointer    =   99  'Custom
  117.       TabIndex        =   6
  118.       Top             =   4704
  119.       Width           =   5016
  120.    End
  121.    Begin VB.Label Label5 
  122.       Alignment       =   2  'Center
  123.       Caption         =   "A quick shut down utility for Windows 95/98"
  124.       Height          =   372
  125.       Left            =   1320
  126.       TabIndex        =   5
  127.       Top             =   1200
  128.       Width           =   4932
  129.    End
  130.    Begin VB.Label Label4 
  131.       Alignment       =   2  'Center
  132.       Caption         =   "Copyright 
  133.   1998,  Majid Salimi"
  134.       Height          =   372
  135.       Left            =   1308
  136.       TabIndex        =   4
  137.       Top             =   2076
  138.       Width           =   4968
  139.    End
  140.    Begin VB.Label Label3 
  141.       Alignment       =   2  'Center
  142.       Caption         =   "A ""Tune It! OCX"" sample"
  143.       Height          =   372
  144.       Left            =   1296
  145.       TabIndex        =   3
  146.       Top             =   1704
  147.       Width           =   4980
  148.    End
  149.    Begin VB.Label Label2 
  150.       Alignment       =   2  'Center
  151.       Caption         =   "Version 1.1"
  152.       ForeColor       =   &H00800000&
  153.       Height          =   372
  154.       Left            =   1320
  155.       TabIndex        =   1
  156.       Top             =   720
  157.       Width           =   4932
  158.    End
  159.    Begin VB.Label Label1 
  160.       Alignment       =   2  'Center
  161.       Caption         =   "Fast Down"
  162.       BeginProperty Font 
  163.          Name            =   "Arial"
  164.          Size            =   18
  165.          Charset         =   178
  166.          Weight          =   400
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       ForeColor       =   &H00C00000&
  172.       Height          =   492
  173.       Left            =   1320
  174.       TabIndex        =   0
  175.       Top             =   120
  176.       Width           =   4932
  177.    End
  178.    Begin VB.Image Image1 
  179.       Height          =   1395
  180.       Left            =   165
  181.       Picture         =   "Form_About.frx":0D60
  182.       Top             =   555
  183.       Width           =   1035
  184.    End
  185. Attribute VB_Name = "Form_About"
  186. Attribute VB_GlobalNameSpace = False
  187. Attribute VB_Creatable = False
  188. Attribute VB_PredeclaredId = True
  189. Attribute VB_Exposed = False
  190. Private Sub Command1_Click()
  191.  Unload Me
  192. End Sub
  193. Private Sub Form_Load()
  194.  Label_Registration.Caption = "( " + Form_Main.TuneIt1.RegistrationStatus + " )"
  195.  '**** If the program is registered version, show the
  196.  '**** registration message in black ( not in red ).
  197.  If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
  198.    Label_Registration.ForeColor = &HC0
  199.  End If
  200.  '**** Show the Windows start up time and mode
  201.  '**** ( Normal boot or Safe mode ... )
  202.  Label_WindowStartup.Caption = "Windows started at  :  " & Format(Form_Main.TuneIt1.WindowsStartupTime, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  203.  Label_StartupMode.Caption = "[ Start up mode  :  " & Choose(Form_Main.TuneIt1.BootType + 1, "Normal boot", "Safe boot", "Safe boot with network support") & " ]"
  204. End Sub
  205. Private Sub Label_Email_Click()
  206.  DefaultBrowser = Form_Main.TuneIt1.WebBrowser
  207.  If Len(DefaultBrowser) > 0 Then
  208.   RetVal = Shell(DefaultBrowser + " mailto:majids@geocities.com", 3)
  209.  Else
  210.   MsgBox "No Mail client available!"
  211.  End If
  212. End Sub
  213. Private Sub Label_HomePage_Click()
  214. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  215. ''' To show the home page contents,
  216. ''' first we should have the Web browser application name,
  217. ''' and append the URL as a command line to it.
  218. ''' TuneIt! control located in Form_Main gives us the
  219. ''' Web browser names.
  220.  BrowserApp = Form_Main.TuneIt1.WebBrowser
  221.  If Len(BrowserApp) > 0 Then
  222.   RetVal = Shell(BrowserApp + " http://www.angelfire.com/me/majids/TuneItHome.html", 3)
  223.  Else
  224.   MsgBox "No Web browser available!"
  225.  End If
  226. End Sub
  227. Private Sub Label_RegistStatus_Click()
  228. '''' If the TuneIt ocx has been registered,        ''''
  229. '''' no need to go to the online registration site.''''
  230.  If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
  231.   Return
  232.  End If
  233. '''' Obtain the default Web browser address ''''
  234.  DefaultBrowser = Form_Main.TuneIt1.WebBrowser
  235.  If Len(DefaultBrowser) > 0 Then
  236.   TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
  237.   RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
  238.  Else
  239.   MsgBox "No Web browser available!"
  240.  End If
  241. End Sub
  242. Private Sub Label_Registration_Click()
  243. '''' If the TuneIt ocx has been registered,        ''''
  244. '''' no need to go to the online registration site.''''
  245.  If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
  246.   Exit Sub
  247.  End If
  248. '''' Obtain the default Web browser address ''''
  249.  DefaultBrowser = Form_Main.TuneIt1.WebBrowser
  250. '''' If we have a default Web browser in system,
  251. '''' add the registration address as command line
  252. '''' and run it, otherwise inform the user ...
  253.  If Len(DefaultBrowser) > 0 Then
  254.   TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
  255.   RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
  256.  Else
  257.   MsgBox "No Web browser available!"
  258.  End If
  259. End Sub
  260. Private Sub Timer1_Timer()
  261.  Unload Me
  262. End Sub
  263.